Try something like:
Dim fileNum As Integer
fileNum = Freefile()
Open "lpt1" For Output As fileNum
Print #fileNum, "Hello world" & Chr(12) ' Form Feed
Close #fileNum
Refer to these postings in the (from the Notes 4-5 forum):
http://www-10.lotus.com/ldd/46dom.nsf/Search?SearchView&Query=open%20and%20lpt1%20and%20output&SearchOrder=0&Start=1&Count=100